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Désolé pour le retard mais la disquette contenant tout les 
textes de ce numéro a connu une défaillonce ce qui n'a 
obligé à tout réécrire dans un teaps record, Matheureusenent 
je ne fais pas de copie de sécurité, cela se montrera à 
faire l'inconscient... Enfin le nunéro 9 est terminé et je 
dois pensr au numéro 18 qui s'en vient. Si vous avez un 
petit article pour QL-D0C, n'hésitez pas, envoyez-le et le 
ciel vous recoapensera un jour. 


Dans ce numéro, on parle des possibilités-réseau du QL plus 
un prograsse de notre expert en SuperBASIC, JC Touzin, pour 
prédire notre consossation énergétique en calculant le 


coëfficient de perte thermique (CPT), On jette un cou d'œil ar 
le PSION XCHANGE. 


ADOC met à la disponibilité de ses lecteurs les versions fronçaises des pro- 
oromses PSION. Envouez 2 MWs ou 1 disquette à l'adresse habituelle plus $3 
pour couvrir les frais postaux, Holheureusesent je n'ai aucune doamentation et 
les fichiers AIDES en fronçais ne sont pas disponible. 


Sinclair News 


ANT COMPUTING IBM PC ENULATOR VERSION 2...sssseumssoseuees 


ANT COHPUTING offre la version 2 de leur éaulateur qui 
perset de faire fonctionner des programmes écrits à 
l'origine pour les ordinateurs compatibles PC sur votre QL. 
Entièrenent aulti-tôche, re-configurable l'éaulateur 
supporte 2 standards vidéos; HDA (monochrome texte) et CEA 
(couleur graphique). Un utilitaire optionnel perset 
d'utiliser la souris Q-JUNP coase étant une souris HICROSOFT 
conpatible. On a rapporté de sérieux problèmes avec la 
prenière version de l'éaulateur, espérons que la nouvelle 
version règle ces problèmes. Mais la prudence est de sise 
quand naèse... 

(49.95 Livres sterling) 

ANT COMPUTING, Headou Lodge, Rame Cross; Penryn, TRIO 9BA;, 
England 


UNE SOLUTION A LA VANILLE OU AU CHOCOLAT? cssessssosessseeos 


DIGITAL PRECISION offre agintenant un éaulateur HS-D0S qui 
fonctionne très bien selon les prenières lapressions 
recueillies, Appellé THE SOLUTION, l'éaulateur se présente 
sous deux différentes versions. La version CHOCOLAT comprend 
l'éaulateur plus le HS-D0$ v4.8 tandis que la version 
VANILLE, l'écononique, offre l'éeulateur seulesent, vous 
devez fournir votre propre DOS alors. La SOLUTION occupe 
environ 75K de nénoire, laissant 667K libre avec la carte 
TRUNP. Le standard CCA est supporté, i.e. le node 88 
colonnes plus un mode graphique 328x200 avec 4 couleurs 
seulement. Le prochain numéro de @L_DOC contiendra un essai 
coaplet de ce logiciel. 


THE SOLUTION : VANILLA 79.95 Livres CHOCOLATE 129.95 livres 


TEXT 87 VERSION Deussessnsoonsenanesassnsacosocononsoaooooooo 


La nouvelle version du traitement de texte TEXTS7 est 
naintenont disponible. Très rapide, TEXT87 se distingue por 
son caractère très UYSIUYG, ce que vous voyez à l'écran est 
ce que vous verrez à l’inprinante. 

(45 Livres sterling) 

SOFTUARES7, 33 SAUERNAKE ROAD, LONDON HU3 2JU, ENGLAND 


A isa eiaiserenudrenonent A ET, 


as 


Le nagazine américain COHPUTE!, dans son édition de sors 
1989, apparait un essai du 288 de l'Oncle CLIVE. L'article 
est très bien pour le 288. 


INTERFACE DISQUE DUR pour le sos secoue 


Le dernier nunéro de QUANTA fait sention d'un controileur de 

disque dur pour le aL. Le prix indiqué est 185 livres 
Sterling soit plus de 338$ canadien. À ce prix-là, le disque 
dur et la source d'aliaentation ne sont pas inclus. 


LE RESEAU (Lien EXISTE! 
JE L'AI W... 


It faut être réaliste, si notre QL “pète au frette” alors on 
a un gros problème. A soins d'un problène sineur, votre QL 
est bon pour la boîte de carton dans le sous-sol car 


probablesent personne ne sera capable de le réparer vu que 


les pièces spécifiques au OL sont presque iapossible à 
trouver dans ce pays. La solution est toute siaple, trouver 
un QL de rechange. Nais en entendant la catastrophe, on peut 
s'amuser en relier nos 2 QLs en petit réseau local et épater 
les copains. Avant d'utiliser notre "OL LAN" il faut avoir 
charger sur les QLs faisant partie du réseau le TOOLKIT II 
car sinon ca ne marche pas vroiaent. On peut relier jusqu'à 
64 QLs enseables si on le désire... 


Pour en connaitre un peu plus sur les réseaux QLiens voici 
un article qui nous vient de l'autre coté de l'Atlantique. 


«Par J. L. Dianoux COLCF), adaptation OL_DOC 


Le OL, à l'instar des êtres coaplexes coane l'Hosse, por 
exesple, est né prématuré, doté por la nature ou SINCLAIR, 
de grandes capacités sais incapable de survivre tel quel 
dans la nature hostile. La cossunication, on le sait, est 
parai les activités les plus délicates de ces deux espèces, 
Ainsi aangue-il au QL nouveau-né un aot pour parler à ses 
congénères: FSERUVE. Ii suffit, mais il faut, Le lui donner 
grace à l'incontournable TOOLKIT II (en ROH!) de Tony Tebby, 
pour transformer ses relations sociales. Et vous découvrez 
que NATIUVENENT, le QL sait parler aux autres; à la vitesse 
de 188 Kbits/seconde, ce qui nous fait du 3608 bauds 
(maximum) en pratique. 


{n 
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Très concrèteaent, il faut un câble tout sisples vous 
l'avez, reliez deux machines par l'une de leur deux broches 
réseau (HET). Si vous n'êtes que deux (nois quelle aventure 
déjà...), appelez-les chacune net i (en tapant: NET 1). En 
fait, ne tapez rien du tout! chacune sera automatiquement 
NET i pour l'autre! si vous êtes plus de deux (on peut faire 
une party à 64), il faut alors vraiment s'attribuer un 
nuséroz puis tapez sur l'une ou l'autre des machines ou les 
deux: FSERVE; c'est l'abréviation de File SERVEr (serveur de 
fichier). Cette connande nagique; qui est un JOB, avec une 
priorité et tout, va autoriser la aachine reliée à accéder à 
us les périphériques de la machine serveuse; disons la 
vôtre, 


Ainsi donnez-vous l'autorisation une bonne fois pour toutes 
de venir fouiller dans vos poches, vos aicrodrives ou vos 
disquettes, ais aussi d'écrire des obscénités sur VOTRE 
écrans VOS sorties séries ou parallèles, VOS disquettes ou 
nicrodrives bien sûr, sans compter vos RAN-DISCS: mais aussi 
d'effacer tous vos précieux trésors, alors il faut que la 
confiance règne. NAIS, bug ou volonté de l'auteur ou 
conception du système, la sachine à distance ne peut pas 
formater vos aicrodrives et autres supports. 


Prenons un exesple: QL-1 et QL-2 s'aiment d'amour tendre: 
ils sont jeunes et décident donc de tout partager (la vie 
leur apprendra). QL-1 se relie à l'inprinante, QL-2 apporte 
dans sa dot ses deux lecteurs de disquettes, sa liaison au 
Minitel, son extension méaoire. Chacun tape sur son clavier 
FSERUE. QL-1, qui ne veut plus voir ses nicrodrives en 


peinture tellement ils lui en ont fait baver, tape en outre 
NES_ÜSE adv; ni_flpl., ni_flp2.. Ceci signifie désornais que 
lorsqu'il tapera, ou aieux qu'un logiciel cherchera accès à; 
“advl_", la sachine l'interprètera comme "flipi." de la 
machine OL-2. Idee pour “adv2_". Ainsi, @L-i fonctionnera 
COMNE SI les floppies de QL-2 étaient les siens en pouvant 
les utiliser, en faire le DIRectory etc... Réciproquenent; 
QL-2 pourra utiliser l'isprinonte reliée à QL-1 avec COPY 
fipl_texte_ doc to ni_seri. 


Amusez-vous à faire afficher sur QL-1 l'horloge de QL-2 dans 
i n tenps que L-2 affiche celie de QL-i en faisant sur 
-{: 


open #3snl_con:clock #3 
et sur QL-2: 
open #3sni_consclock#3 


Et ça marche. S'il y a problèse de “collision”, que 5e 
passe-t-il ? la conaunication est suspendue, les logiciels 
de réseau font des tentatives répétées, puis tout stoppe 
avec Le message “netuork aborted"... et parfois, ça 
redéaurre tout seul| 


Maintenant, quelques précisions consplénentaires: 


- On peut charger et exécuter sur sa propre machine des 
progranses placés sur les supports de la machine connectée; 
exemple: LRUN N1_FLPI BOOT. EXEC_U N1_FLPI QUILL fonctionne 
sans problène. 


- On peut consander des redirections d'un périphérique de la 
nachine serveuse à un autre de ses périphériques: 


exenple: COPY N1_FLP1_DOSSIER_LIS TO N1_SER! 


- Une machine située sur un circuit de plusieurs QL peut 
conduire le réseau en restant éteinte (conduction 
électrique) 


- Pour persettre à QUILL et autres PSIONS de reconnaître tes 
périphériques réseaux, il faut pratiquer ainsi: 


..Pour pouvoir effectuer des opérations via le réseau, par 
exemple LOAD Ni_flpi_docusent doc ("not found"), NFS_USE 
doit d'abord avoir été eaployé, avec une redirection de MDU 
sur NI FLP. par exesple NFS_USE adusni_fipi_snt_flp2_. On 
tapera donc F3)LOAD)advi_docusent doc, et QUILL, leurré, ira 
bien chercher le document sur N1_flpi_. | 
..pour inpriner directesent sur N1_SERI por exeaple, il faut 
avoir reconfiguré son QUILL ou autre, en utilisant pour le 
choix de la sortie ni le PAR, ni le SER, sais Le "NON 
STANDARD PRINTER DRIVER". On inscrit à ce moment "N1_SER1° à 
la place de PAR. Puis au moment d'ispriner, ce sera 
“FDprinthuhole>to printer” 

La plupart des autres logiciels (THE EDITOR, FLASHBACK, PAGE 
DESIGNER...) reconnaissent directenent les dénominations du 


réseau. 


- FSERVE est nous l'avons vu un job. Lorsqu'il est mis en 
activité (l'autre veut trafiquer dans vos périphériques); 
cela vous ralentit forcéaent dans vos activités à vous. Un 
un As égotistes donnez-lui la priorité la plus 
aiblesi. 


Au total, le réseau du OL sarche très bien. Bien sûrs on 
reste loin du réseau ETHERNET (10 H0/sec.) quant à la 
vitesse. Mais cela devrait être suffisant dans la vie 
courante, 


Le Réseau du OL 


CPT BAS 


«de Jean-Claude Touzin 


. Ce progranne pernet de calculer le rendement énergétique 
d'une résidence, ou coëfficient de perte thermique (cpt). Il 
sera utile autant à ceux qui envisagent la construction 
d'une résidence neuve qu'à ceux qui veuient apporter des 
aséliorations à une baison existante, Les coûts du chauffage 
peuvent aussi être calculés. Je n'entrerai pas dans le 
détail du calcul de La valeur isolante des murs, etc... Tout 
ceci peut être calculé à l'aide de publications gratuites 
des Couvernesents. Contactez-moi en cas de difficultés. 


Ce genre de progronses a besoin de noabreuses données 
fournies por l'utilisateur pour pouvoir effectur ses 
calculs. Il est donc très isportant de fournir au prograsne 
les données les plus justes possibles, sans quoi les 
résultats fournis par l'ordinateur sont sons grand intérêt. 
Si Le prograsse sert à planifier ta construction d'une 
saison neuve, le danger est d'autant plus grand, Cependant 
il existe un soyen de se "faire la main”; et c'est en 
siaulant le rendement énergétique d'une résidence déjà 
existante, Vous avez alors tes factures des années 
précédentes pour vérifier la justesse de vos résultats. En 
cas de non concordance, surveillez spécialement avec quelle 
unité de presure vous travaillez, votre réponse aux 
changesents d'air/heure et le coût des sources énergétiques 
bien entendu. 


Cependant, le progrannse pernet de changer très facilement 
chacune des variables pour voir les effets sur le cpt. Il 
pernet nêse d'entrer en DATA les données d'une aaison type 
sur laquelle on travaille. Les procédures d'entrées et de 
correction des données peuvent facilement être adaptées dans 
d'autres prograsses. Un emploi copieux de fenêtres pernet à 
chaque donnée d'être facilement repérable à l'écran et dans 
le Listing du prograsse. La procédure offset (déjà parue 
dans @L_DO0OC) est enployée pour afficher les résultats. Je 
l'ai cependant changée en FUNCTION offset$ (ligne 2888). Les 
lignes 2948 et 2958 sont égalenent différentes. Pour voir le 
progranne en action, choisir l'option 5, suivie de l'option 
3. Le progronne fonctionne sur RON JS, des ajustements 
seront sans doute nécessaires sur RON JSU. 


NDLR: Ce progranse est disponible en envoyant une 
Te à QL_D0C plus $2 pour couvrir les frais 
postoux. 


100 REMark J.C.Touzin, C.P.41, La Sarre, Qc J92 2X4. 
110 REMark coëfficient de perte thermique 

DEFine PROCedure calcu 
130 correct=(-3.2E-5tłalti)+t 
140 isol fen=1/u_fen 
150 cptiT}=24tsurf a/isol_« 
160 AREA Cario pia 
170 cpt {3)=244sur f Ei O parte 
180 cpt (4)=24tsurf_fen/isol_fen 

ect ON r 18 

200 =i: fact_1=75b; fact_7:8 
210 =2: fact 1=100: fact 2-5 
220 =3: fact 1=24: fact 2-0 
230 END SELect 
240 cpt (S)=fact 1surf fond/{isol fond+fact_2) 
250 a TENNENRE 
260 cpt tota ent (4) teot (21 icpt (S) +cpt (A) tept LS) +cpt 16) 
270 ua=Tept totalt2. 197E-2) 
280 perte_blu={cpt_totalid j/1E6) 
290 jour_mois=30: Btu_pers=20000 
300 gain_thera_intrin={btu persipersteois ct jour mois) 
310 DRE perie btuffEb)-gain thers_intrin 
320 kilow=perte gain/3413 
330 gasmpc=(perte gain/1E4) 41.45 
340 fuilegal=(perte gain/180006) 41.5 
350 charbonton={perte_gain/2, 5195267) 81,55 
360 boiscord={perte_gain/2.19€7)41.55 
370 END DEFine calcul 
380 DEFine PROCedure resultat 
390 PRINTHcanal, \\"====} RESULTATS: " & ref$ 

PRINThcanal, *====Coëfficients de perte theraique de l'édifice en Btu/degré-jour:" 
410 FOR k= 1 T0 4 
420 FRINT#canal, ! sect$(k) & offset$ (cptik}, 6,0," ") &" r 
430 END FOR k 


440 PRINT#canal , \\"====Coëtficient de perte theraique totale en Btu/degré-jour= "; 
445 FRINTëcanal offset$(cpt_total, 6,0," *} 

450 FRINTcanal, TO 50; ou. “sotfselé (ua,8,0," "95" watts/'C (UA)" 

480 FRINTicanal, \"====Perte Cheraique totale pour l’année en NBtu= ": 

485 PRINTcanal,offset$ (perte_btu,6,0," *) 

470 PRINTcanal, "Gain thermique intrinsèque en MBtu= ‘i 

A RIR anal ofre Sigan, Re TE D 

480 PRINTcanal,, "Perte nette Eotale en MBtu= "; 

485 PRINTëcanal offset$ ((perte_gain/1E6),6,0," ") 

490 PRINTcanal, \ *==== Coût approxiaatit du chauffage “iref cef;":" 

500 PRINTRcanal, TO 15; "Electricité: ";offset$ (kilon,8,1," "T; 

909 PRINTcanal," kwh ="soffset$ (kilowtkuh, 6,2,"$") 

910 PRINTécanal, TO 153 bas naturel: “soffset$ (gasapc,b, 1 
515 PRINTHcanal," aillion pi.cu. =";offset$ (gasapctipc, b, 2, 
520 PRINT#canal, TO 15; "Huile à anI "offset$ thuilegal, 1," "); 
329 PRINT#canal, " jih iip. =";offset$ (huilegaltgi,6,2,*$") 

330 FRINT#canal, T0 15; “Charbon: "offsets (charbonton 41° ‘Je 

333 PRINT#canal, " tonnes. ="offset$ icharbontontton, 6,2, $) 

340 PRINT#canal, TO 15; "Boise "soffset$ (boiscord,4, 1," “); 

045 PRINTcanal," cordes {4 pi} =";offset$ (boiscordécord, 8,2, "$") 

J0 END DEFine resultat 

360 DEFine FRiCedure affectation 2 

J70 d_j=r#(l}: altizr$(2): mois C=r$(3): pers=ré(4) 

580 knher$(5}: ALT gi=r$(7}s ton=r$(B}: cord=r$(9) 

390 surf a=r$(10}: isol_e=r$(11) 

600 surf plaf=r$(12}: 160! plaf=r$(13) 
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610 surf porte=r$(14}: iscl porte=r$ (15) 
620 surf fen-r$ (16): u fen=r$(17) 
63 r_18=7r${18) 
689 surf_fond=r$(19}: isol fond-r$(20) 
650 vol=r$ (21): change=r$ (22) 
bb) END DEFine affectation 2 
670 DEFine FROCedure reponse i 
680 FOR r_b=1 TO 18, 21 T0 22 
690 IF r_E=18: fondation: NEXT r b 
700 si rendu a=r_b 
710 SELect ON si rendu_a 
720 =16: PRINT, message 16$ 
130 =17: PRINTÉ0, message 17$ 
140 =22: PRINTIO, aessage 22$ 
750 END SELect 
760 reponse 2 
770 END FOR r b 
780 END DEFine reponse_| 
au LA PROCedure reponse_2 
NPUTA0, Nr y la question no.” & r_b& “:"zr$(r_b) 
t BRIT b#10), r$ir_b) 
820 END DEFine reponse | 7 
830 DEFine PROCedure Fondation 
840 PRINT#0,#essage_18$ 
850 INPUTHO, "Réponse à la question no.18:";r$(18) 
860 r 18=r$ (18): pee fondation 
870 CS#28: CLSE29: CLSE30 
880 PRINT#28, ICE ré (18) 
890 PRINTEZ, $19); 
900 PRINTES0, FEJ 
a INPUT#0, "Réponse à la question no.19:";r$(19) 


à la question no. 20: "r$ (20) 
940 Te r#(20 


950 END DEFine fonation, 

960 DIM sect$(6,14) pu 39),r$(22, 10) 

970 DIN cpttb RES 2430: READ reff,ref cet 

980 affectation: senu: STEP 

990 DfFine PRÜCedure senu 

1090 ouvre c: intro 

1010 REPeat nenu_b 

1020 CLS#0 

1030 PRINT#0, “1-Entrée des données  2-Correction des données" 

1040 PRINTIO, "3 “Résultats à l'écran 4-Résultats sur imprimante 5-" & ref$ 
1050 INFUTHO, "Taper 1, 2, 3, 4, 5 (ou & pour sortir du prograsse) ";v_n 
1060 CLSH 

1070 E ON vn 

1080 =i: identification: CLS: ef f: ecran: reponse |: affectation 2: calcul 

1090 =2: identification:CLS place f: ecran: ajoute rt corrige quoi: affectation 2: calcul 
1100 E CLS: canal=i: resultat 

1110 =4; canal=3; isprimante 

1120 =5: CLS: lecture: place f: ecran: ajoute r: affectation 2: calcul 

1130 =b: EXIT senu_b 

1140 END SELect 

1150 END REPeat menu b 

1160 ferme c 

1170 END DEFine menu 

1180 DEFine PROCedure 

0 D SIZ DER SOLS 7 

1200 fenetre 1,504,207,2 

1210 fenetre 008 472 ARE 


1220 END DEFine intra 
1230 DEFine PROCedure fenetre (canal, x, y,0x,0y, couleur! 
1240 WINDOWBc anal, x, | oxt8,oyt4 
1250 PAPERkcanal 0: CL Sc anal 
1260 Mana x 1,05, 
1270 PAPER#canal, couleur 
1280 CLS#canal 
1290 INKëcanal, 74 (couleur4) 
1300 BORDER#canal, 1,0 
1310 END DEFine fenetre 
1320 DEFine PROCedure ecran 
1330 AT 0,0: PRINT entete$:s" “sreff 
1340 gpl 
1350 FÜR 5 b=1 70 b 
1360 4,0 
1370 PRINT settbts b) 
1380 IF s b=5: oy=oy+31: ELSE : oy=oy+20 
1390 END FOR s b 
1400 FOR g b=11 TG 32 
1410 FN h, q$(q_b-10); 
1420 END FOR q_b 
1430 END DEFine ecran 
1440 DEFine PROCedure ouvre c : 
1450 FOR oc=11 TO 32 
1460 OPENRoc, scr 
1470 END FOR oc 
1480 END DEFine 
1490 DEFine PROCedure place_f 
1500 prepri 
1510 FOR pf=1i TO 32 
1520 WIND Jo 240, 10, px, py: PAPEREpF, A: CLS INKIpF, 0 
a rema 
x200: px=0: py=py+ 
1550 test f t 
1560 SELect ON test 
n ER r 
B0 =24, 23,25,27: py=py+ 
1590 END SElect 
1600 END FOR pf 
1610 END DEFine place f 
1620 DEFine FROCedure ferse_c 
1630 FOR fc=11 TD 32 
1640 CLOSE#Fc 
1650 END FOR fc 
1660 END DEFine 
1670 DEFine PRüCedure corrige quoi 
1680 REPeat question b > f 
1690 INPUTEO, "No de l’ites à nue ou f pour fin: ‘sites cé 
1700 IF item c$=="f":EXIT question | 
1710 item c=itea c$: IF itea c=18: Fondation: NEXT question b 
1720 SELect ON ites c 
1730 =i6: FRINTHO, message 16$ 
1740 =17: FRINT#O, message 17$ 
1750 =22: PRINT#O, message 22$ 
1760 END Elect 
1770 INPUTHO, ponie à la question no." & item c &":";r$(iten_ c) 
1780 CLSH item c+10) a à 
1790 PRINTH(ites c+10), g$élites c); rélites c) 
1800 END REPeat question b 7 


1810 END DEFine corrige A 
1820 DEFine PRüCedure affectation 

1850 entete$="CALCUL DU COEFFICIENT DE FERTE THERMIQUE D'UN EDIFICE," 
1840 sessage 16$="Excepté les fenêtres du côté sud." 

1850 aessage_178="1 vitre=1, 2 vitres=.55, 3 vitres=.37" : REMark 1.1/1, 1.1/2, 1.1/3 
1840 nessage_18$="S0us-s01=] plancher sur sol=2, plancher sur espace d’air=3." 
1870 mine 24="Très heraétique=. 62, hera.=,93, soyen-1.23, peu hers.=1,54, très peu hera.=1.85" 
1880 sect${i="Murs: " 

1890 sect$(2}="Plafond: " 

1900 sect$(3)="Portes: " 

1910 sect$(4)="Fenêtres: " 

1920 sect$(5)="Fondations: * 

1930 sect$(h)="Infiltration: " 

1940 q$t1i="1)Degrés-jours/année/*F:" 

1950 q$(21="2)Altitude en pieds:" 

1960 q${3}="3)Saison de Ferne 2 D 

1970 q$(4)="4)Nonbre de résidents: " 

1980 q$()="S)Electricité, coùt/kwh; $" 

1990 q$tb)="6)6as naturel,coût/aillion pi.cu.:$" 

2000 g$17}="7)Huile, LAS" 

2010 q$(8)="8)Charbon, coût/tonne:$" 

2020 q$(9)="9)Bois, coût/corde 4 pieds:$" 

2030 s pc$="Surface, pra 

2040 i r$="Isolation,R:" 

2050 qf (10)="10)" & 5 pc$ 

2060 q$(11)="11)" & ir$ 

2070 q$(12)="12)" & s pc$ 

2080 q$(13)=" 13)" k ir$ 

2090 q$(14)="14)" & 5 pr$ 

2100 q$1151=" 15)" & ir$ 

2110 q$(18)="16}" & s pc$ 

2120 q$(17)="17)Facteur U:" 

2130 q$(18)="18}l=ss 2=slab S=plancher esp.air:" 

2140 q$(19="19Longueur des eurs en pieds:" 

2150 g$(20)="20)" k i r$ 

2160 q$(21)="21)Yoluse en pi.cu,:" 

2170 q$ (22)="22) Changement air/heure:" 

2180 END DEFine affectation 

2190 DEFine PRūCedure ajoute r 

2200 FÜR ajoute b= 1 T0 22 

2210 PRINT#(ajoute_b+10), r$(ajoute b) 

2220 END FOR ajoute b 

2230 END DEFine ajoute r 

2240 DEFine Fhlledure Imprimante 

2250 OFENKS, ser 

2260 PRINTES, entete$\ "----} "sref$ 

2270 FOR iap b=1 TO 22 

2280 SELect ON inp_b 

2290 =10: PRINTES, \"'====" & sect$(1) 

2300 =12; PRINTES, \"====" & sect$(2) 


2310 =14: PRINTES, \"====" & cect$(3) 
2320 =16:; PRINTES, \"====" & sect$(4) 
2330 =18: FRINTHS, \"====" & sect$(5) 


2340 =21; FRINTHS, \"====" L sect$iá) 


t 
2360 PRINTS, !o$(imp_b) & r$tiap b)! 
2370 END FOR a i i 
2380 resultat 
2390 CLOSE#3 
2400 END DEFine iaprimante 
2410 DEFine PROCedure lecture 
10 


2420 REMark données pour entrée automat iq ue par le pr rora 
2430 DATA "24x40, R T i r-c=28.05", i 1988) “: REMark année de référence 

2440 DATA H537, "1000, 8 A TEE 
2450 MTA 10,00". ” 34","0.00 , "60.00" pour les couts de l'énergie 

240 DATA 754, 28.05, gho, 35 

2470 DATA 42,10, 90, .77 

2480 DATA 1, 128, 8 

2490 DATA 15340, 42 

2500 RESTORE 2430 

2910 READ ref$, ref ceÿ 

2520 FOR 1_b=1 10 27 

2530 READ ei + 

2540 END FER 1 

2530 r 18 ET 

2560 quelle fondation 

2370 END DEFine lecture 

2580 DEFine PRüCedure quelle Fondation 

2390 SELect ON r 18 

2600 =i; q$(19:="19)Longueur des aurs en pieds:* 

2610 =2: g$(19)="19)Périaètre en pieds:" 

2620 =3: bi ="{9)Surface du plancher en pi.ca.:" 

2630 END SELect 

2640 END DEFine quelle_fondation 

2630 DEFine PROCedure identification 

2660 edi$="Non de l'édifice {25 caract. max.)? " 

2670 cout$="Année de référence pour les coûts de I énergie" 

2680 REPeat ident_b 

2690 CLS 


2700 PRINT, "1" & ref$\\,,,5,"2)" & ref ce$ 
2710 INPUT, "Taper 1, 2 où pour Fin" reponse 
1720 IF reponsab" f": ERIT ik tb 
ie P A 
40 SELect ON reponse 

70 =f: INPUT\\, fedi$) ,ref$ 
2760 =2: INPUT, r (couté, ref_ce$: ref ce$="$ " & ref ce$ 
2710 END SELect 
2780 END REPeat ident_b 
2790 END DEFine identification 
2800 DEFine FuNction offset$ ( var amia Es signe$) 
2810 LOCal arrondi place point, var, de 
2820 arrandi=10"-dec $ I ({var+5 t ioe e) 4 10*dec} 
2830 arrondi$=arrondi 
2840 IF ("E" INSTR arrondi$}{>0: not_scient arrondis 
2850 var$=(FILL$(" *,9)) & signe$ &arrondis & (FILL$("0",10)) 
2860 re ={(".” INSTR var$) 
2870 IF place point (> 0 
2880 debut=place point-entier 

0 ELSE 


2900 var$(LEN(var$)-9)="," 

2910 D ARE 

2920 END IF 

2930 IF dec=0: fin-debuttentier-l: ELSE fin-debut+dectentier 
2940 IF var$idebut-1) INSTR "-123456789" C0: var$=arrondi$: ELSE var$=var$ (debut TO fini 
2950 RETurn var$ 

2940 END DEFine offsets 

2970 DEFine PROCedure not scient larrondi$) 

2980 place E={"E" INSTR arrondi$) 

2990 moins=("-" INSTR arrondi$ (i)) 

3000 soins E=("-" INSTR arrandi$ (2 T0)) 


3010 ou point={"." INSTR arrondit) 
3020 IF moins E=0: million arrondis: RETurn 


3030 IF aoins Et0: nbre dec=arrondif (moins E+2 TO): ELSE nbre dec=arrondi$ (place E+1 TM) 


3040 arrondit=arrondi$Tl T0 place E-) 


3050 IF ou point»: arrondi_2$= arrondi$ (i TO ou point-1} & arrondi$ (ou point+i TO }: 


ELSE arrondi_2$=arrondi$ 


3060 rempli$=FILLS("0", nbre dec-1) 
3070 IF moins()0: arrondi$="-." & renpli$ & arrondi _2${2 TD}: 


ELSE arrondi$="." & renpli$ & arrondi _2$ 
3080 END DEFine not_scient 
3090 DEFine PROCedure million (arrondis) 
3100 vers_droite=arrondi$iplace E+} T0) 
3110 arrondi$=arrondi${{ TO place E -1) 
3120 IF ou point=0 , 
3130 reapli$=FILL$("0",vers_droite) 
3140 arrondi$=arrondi$ & renpli$ 
3150 END IF 
J160 IF ou point(?Ù 
3170 rempli$=arrandi$tou_ point +1 TO place E -i) 
3180 long=LENtrempli$) l 
3490 IF Tong vers_droite: rempli$=rempli$ & FILL$("0", vers_droite-long) 
3200 arrondi$=arrondi$ (4 T0 ou point-1) & reapli$ 
3210 END IF 
3220 END DEFine million 


QUESTIONNAIRE 


Voici un petit test qui va vérifier si vous êtes un @Liste 
expert? 


1,Quelle est ta signification du nom OL ? 
A- Québec Libre 
B- Quite Late 
C- Quantus Leap 
D- Quality 


2.Quelle est la ménoire totale (ROM+RAM) d'un QL en version 
de base? 

A- 128K au totat 

B- 128K RAM+48K RON=176K au total 

C- 128K RAM+48K RON+32K ménoire vidéo=288K total 

D- 128K RAH+512K RAN virtuei=648K total 


3.Le nos JAN JONES vous dit quoi? 
ñ- Elle est l'épouse de CLIVE SINCLAIR 
B- Elle a conçu le SuperBASIC 
C- Elle a conçu le boitier noir du 8L 
D- Elle est championne Olympique du saut à 
ta perche, 


4 Quelle est la dernière version officielle de ARCHIVE de 
PSION? 


A- 2.3 

B- 2.35 
C- 2.38 
D- 3.81 


„Quel est le lien entre SANSUNG de Corée et SINCLAIR? 
A- Ils fabriquaient le QL anéricain 

B- Ils ont acheté les droits du @L 

C- Ils ont un cospatible QL sur ie aarché 

D- Les deux commencent avec un "S" 


on 


a 


Quel est le deuxième microprocesseur du QL après le 68008? 
A- 8087 
B- 8849 
C- 8419 
D- 4164 


N 


Qui était le distributeur canadien du @L au tout début? 
A- ACTIVE electronics 

B- TIMEX corporation 

C- SINCLAIR RESEARCH of CANADA 

D- EDG electronics distributors 


8.Quel était le prix de vente suggéré canadien du QL au tout 
début? 


A- $808 
B- $680 
C- $500 
D- $400 
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abonnenent: 2 com iieii 


La version XCHANGE des programmes PSION est aaintenant 
disponible pour Le @L. 11 faut pour l'utiliser un @L avec 
une extension de mémoire et lecteurs de disquette, QUILL, 
ARCHIVE, ABACUS et EASEL sont réunis ensesble par 
l'interaédiaire du module XCHANGE qui perset de passer d'une 
application à l'autre très rapidement. Ce module possède un 
langage appelé TSL, TASK SEQUENTIAL LANGUAGE qui pernet de 
prograsser en quelque sorte l'exécution d'un travail 
routinier. 


QUILL offre la possibilité de sauver un partie d'un texte 
avec la commande EXTRACT. Une fonction GLOSSAIRE a été 
ajoutée, celle-ci permet de créer des HACROS pour le clavier; 
on assigne à une lettre une série d'instructions qui seront 


exécutées lorsque la touche FS et la lettre choisie seront 


appuyées. ABACUS permet de protéger certaines parties de lo 
feuille de calcul pour empêcher l'entrée de données. On peut 
aêne protéger notre feuille de calcul avec un aot de passe. 
La touche TABULATE facilite maintenant l'entrée de données. 
La touche TAB est maintenant l'équivalent de la touche ENTER 
et La dernière touche curseur appuyée, c'est l'équivalent de 
ABACLAU_EXE (voir Q@L_DOC#8). ARCHIVE peut maintenant appelé 
des routines-nachine avec La fonction USRO. EASEL offre des 
graphiques en 3 dimensions, Il s'agit içi d'une complète 
réécriture des 4 prograsses, ils sont aaintenant plus rapide 
d'exécution. 


Curieusenent, PSION XCHANGE ne seeble pas fonctionner si le 
SUPER TOOLKIT II et OFLASH ne sont pas en maésoire! 
Nalheureusesent il n'y a pas vrainsent de docusentation de 
disponible pour PSION XCHANGE, il faut se débrouiller avec 
les tableaux d'aides. 


KEYRCOD & KEYCOD 


Voici 2 procédures qui peuvent être utile lors de 
développement de programmes. KEYRCOD déteraine les codes 
retournés par La fonction SuperBASIC KEYROU(x). KEYCOD 
retourne le code ASCII d'une touche appuyée. Pour utiliser 
ces procédures, on les appellent par leurs 

noas tout siaplenent. 


1 RENark Procedure KEYRCOD et KEYCOD 

2 REMark de Bruno GADRAT (GLCF) 

4: 

7 REHark La procedures KEYRCOD 

8 RElark peraet de trouver directement 

9 REtark le ou les KEYROU(x) d'une touche 
11 : . 

12 REtark la procédure KEYCOD permet de 
13 REMark trouver le code des touches 


14 : 

15 REtark Il suffit de merger ces procedures 

16 REtlark a votre prgronse et d'appeler keyrcod 
17 REħark ou keycod quand on en a besoin 

18 REtlark CTRL + barre vous sortent de ces 

19 REtark procédures 


21 3: 

7000 DEFine PROCedure keyrcod 
7082 REPeat bouclekeyrou 

2883 AT 0,8 


7005 PRINT “8=":KEYROU(B):;" “\"1=":KEYROU(1) 5" "\°2= "3; KEYR 
0U(2):" ” 

7006 PRINT "3=" 3;KEYROU(3) 5" "\°4=" 3: KEYROU (4) 3" "Nrs" KEYR 
0u (5);" ” 

7807 PRINT “6=";KEYROU(6);” “S°7=";KEYROU(7);" ” 

7008 END REPeat bouclekeyrou 

7009 END DEFine 

7019 : 

8000 DEFine PROCedure keycod 

8881 REPeat bouctecod 

8802 AT 8,8 

8003 codf=INKEYS(-1) :PRINT cod$;” = “:CODE(cod$):;" ” 

8004 END REPeat bouclecod 

8905 END DEFine 


